home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Software Vault: The Gold Collection
/
Software Vault - The Gold Collection (American Databankers) (1993).ISO
/
cdr50
/
pbc22b.zip
/
PBC$BAS.ZIP
/
GRAFPRIN.BAS
< prev
next >
Wrap
BASIC Source File
|
1993-01-01
|
1KB
|
31 lines
' +----------------------------------------------------------------------+
' | |
' | PBClone Copyright (c) 1990-1993 Thomas G. Hanlin III |
' | |
' +----------------------------------------------------------------------+
DECLARE FUNCTION AscM% (St$, BYVAL Posn%)
DECLARE FUNCTION FontRow0% (BYVAL ch%, BYVAL Row%)
SUB GrafPrint (St$, X%, Y%, Ymul%, Xmul%, Colour%)
DIM Pow%(0 TO 7)
Pow%(7) = 1: Pow%(6) = 2: Pow%(5) = 4: Pow%(4) = 8
Pow%(3) = 16: Pow%(2) = 32: Pow%(1) = 64: Pow%(0) = 128
MaxRow% = 7
IF Xmul% < 1 THEN Xm% = 1 ELSE Xm% = Xmul%
IF Ymul% < 1 THEN Ym% = 1 ELSE Ym% = Ymul%
FOR tmp% = 1 TO LEN(St$)
ch% = AscM(St$, tmp%)
FOR Row% = 0 TO MaxRow%
vy% = Row% * Ym% + Y%
ChRow% = FontRow0%(ch%, Row%)
FOR Col% = 0 TO 7
IF ChRow% AND Pow%(Col%) THEN
vx% = ((tmp% - 1) * 8 + Col%) * Xm% + X%
LINE (vx%, vy%)-(vx% + Xm% - 1, vy% + Ym% - 1), Colour%, BF
END IF
NEXT
NEXT
NEXT
END SUB